home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / prolog_2.zip / PUZZLES.ZIP / CONSOLE.PRO < prev    next >
Text File  |  1986-07-20  |  640b  |  19 lines
  1. get_answer( A ) :- 
  2.     ratom( X ), name( X, String ),
  3.         valid_resp( String, A ), !.
  4.  
  5. valid_resp( [H|T], A ) :- type_ans( H, A ).
  6.  
  7. type_ans( X, A ) :- ([X] = "y"; [X] = "Y"), A = yes.
  8. type_ans( X, A ) :- ([X] = "n"; [X] = "N"), A = no.
  9. type_ans( X, A ) :- ([X] = "w"; [X] = "W"), A = why.
  10.  
  11. ?-print('\nYou can start animal by typing "help.<CR>"\n' ).
  12.  
  13. valid_resp( [], A ) :-
  14.     print('\nPlease try to give me a yes or no answer.'),
  15.     get_answer( A ), !.
  16.  
  17. valid_resp( [H|T], A ) :- valid_resp( T, A ).
  18.  
  19.